#compara dos fechas
sub compararFechasMio(){
	my $fecha1 = $_[0];
	my $fecha2 = $_[1];	
	
	$comparacion = 3;
	@fechaActual = split ("-",$fecha1);
	@fechaComp = split ("-",$fecha2);

	#Comparo anio	
	if ($fechaActual[0] > $fechaComp[0]){
			$comparacion = 1;
	}
	else{   #Comparo mes
		if (($fechaActual[0] == $fechaComp[0]) && ($fechaActual[1] > $fechaComp[1])){
		$comparacion = 1;	
		}
		else{   #Comparo dia
			if (($fechaActual[1] == $fechaComp[1]) && ($fechaActual[2] > $fechaComp[2])){
			$comparacion = 1;		
			}
			else{
			   
				if(($fechaActual[0] == $fechaComp[0]) && ($fechaActual[1] == $fechaComp[1]) 
					&& ($fechaActual[2] == $fechaComp[2])){
					$comparacion = 0;
					}
				  else{
					$comparacion = 3;
					}					   
			}				
		}
	}

	return $comparacion;
}

#Devuelve la semana a la que corresponde la fecha.
sub obtenerSemanaFecha(){
	my $fecha = $_[0];
	$numSemana= `date --d=$fecha '+%W'`;
	return  $numSemana;
}

#Devuelve el mes corresponde la fecha.
sub obtenerMesFecha(){
	my $fecha = $_[0];
	@fechaActual = split ("-",$fecha);
	return  $fechaActual[1];
}


sub validarFecha{
	my ($fecha) = @_;
	my @campos = split("-",$fecha);#aaaa-mm-dd

	my $anioValido = $campos[0] =~ m/^[0-9]{4}$/;#anio
	my $mesValido = $campos[1] =~ m/[0-1][0-9]$/;#mes
	my $diaValido = $campos[2] =~ m/^[0-3][0-9]$/;#dia

	my $fechaValida = $anioValido && $mesValido && $diaValido;
	
	if($fechaValida == 1){
		return 0;#true

	}else{
		return 1;#false
	}
}

sub validarMonto{
	my ($monto) = @_;
	my $montoValido = $monto=~ m/^[0-9]*.[0-9][0-9]$/;
	if($montoValido == 1){
		return 0;#true

	}else{
		return 1;#false
	}
}

sub validarNombreArchivo{
	my ($nombreArchivo) = @_;
	my $nombreArchivoValido = $nombreArchivo=~ m/^[A-Za-z0-9]*$/;
	if($nombreArchivoValido == 1){
		return 0;#true

	}else{
		return 1;#false
	}
}




1;#necesario
